home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 April / macformat-023.iso / Shareware City / Developers / RLaB / rlib / disp.r < prev    next >
Encoding:
Text File  |  1994-09-23  |  588 b   |  28 lines  |  [TEXT/RLAB]
  1. //-------------------------------------------------------------------//
  2.  
  3. //  Syntax:    disp ( S )
  4.  
  5. //  Description:
  6.  
  7. //  The disp function does two things,
  8.  
  9. //  1) If the argument is a matrix, it prints the matrix without the
  10. //  variable label to the standard output.
  11.  
  12. //  2) If the argument is a string, it prints the string to the
  13. //  standard output.
  14.  
  15. //-------------------------------------------------------------------//
  16.  
  17. disp = function ( S )
  18. {
  19.   if (class (S) == "string")
  20.   {
  21.     fprintf ("stderr", "%s\n", S[1]);
  22.   else if (class (S) == "num") {
  23.     S + 0 ?
  24.   }}
  25.  
  26.   return 1;
  27. };
  28.